2 nt=o;goto 99 
4 INPUT “DATE "C; RETURN 
6 B=F ; 60SUB ! 5i GOSUB 10; RETURN 
10 Z=KP j 80TD 99 
13 INPUT "PAYHENT? $”Y; RETURN 
15 PRINT "BALANCE DUE: , #1 , B, #1 , “ , 00“ 5 RETURN 

20 PRINT "LAST BILL-" , #1 ,§ (8c 100+4) , #1 #1 , @ <8cl00+3) .#1, “.00 
22 PRINT "LAST PYMT-' , il , S (Qc 100+1 ), #1 #1 , 8 (Qcl00+2) , #1 00 

24 PRINT "BAL FWD $",#1,F,#1,”.00 

25 PRINT i INPUT "NEW BILL? $"Y;IF Y>OBOSUB 4;@(0cl00+3)=Y;8(Qd00+4)=C 

26 RETURN 

50 F=8(A);G0SUB 20; N=Y+F ; 80SUB 13;P=Y;F=N-P; IF P>N F=0 
55 IF P>060SUB 4;8(Qcl00+2)=P;8(8cl00+l)=C 
60 8 ( Qcl 000 > =F | BOSUB 6! RETURN 
99 CLEAR ;BC=0;FC=125 

100 PRINT "(0) TOTALS";PRINT "(1) HOUSE PAYMENT"; PR I NT "(2) 2ND MORTB. “jPRINT "(3) ELECT. 

104 PRINT "(4) GAS COMPRINT "(5) HATER" j PRINT "(6) PHONE" [PRINT "(7) ON TV" j PRINT "(8) MISC";PRINT "(9) TO TAPE 

150 INPUT " ITEM: "A; IF A>9G0TQ 150 
155 IF A=9B0T0 9055 

157 IF A=OGOTO 9000 

160 IF A>OS=AblOOO;GQTQ Q 

161 GOTO 150 

1000 CLEAR SPRINT "CALIF. MORTGAGE"; GOSUB 50; RETURN 
2000 CLEAR SPRINT "BENIFICIAL FINANCE" i BOSUB 50 i RETURN 
3000 CLEAR [PRINT "CALIF EDISON” i BOSUB 50; RETURN 
4000 CLEAR [PRINT "SO. CALIF GAS"; GOSUB 50; RETURN 
5000 CLEAR SPRINT "B.P. W/T"jGQSUB 50? RETURN 
6000 CLEAR SPRINT "PAC TEL";GOSUB 50; RETURN 
7000 CLEAR SPRINT "ON TV";GQSUB 50; RETURN 
8000 CLEAR j PRINT "RISC"; BOSUB 50; RETURN 
9000 CLEAR ; PRINT "TOTAL FOR MONTH 
9010 PRINT ”C.H.S.=$”, #1,8(1) 

9015 PRINT "B.F.=$", #1,8(2) 

9020 PRINT "ELECT. =$*,#1,8 (3) 

9025 PRINT "GAS CQ=$", #1,8(4) 

9030 PRINT "B.P. W/T=$", #1,8(5) 

9035 PRINT "PH0NE=$",#1,8(6) 

9038 PRINT "ON TV=$", #1,8(7) 

9040 PRINT "RISC. =$",#1,8(8) 

9041 B=0 

9042 FOR A=1T0 8 
9044 B=B+8(A) 

9046 NEXT A 

9048 PRINT "TOTAL QWED=$",#1,B,#1, ".00 
9050 GOSUB 10; RETURN 

9055 CLEAR [PRINT "REWIND TAPE, PRESS RECORD, WAIT 10 SECONDS, PRESS GO. 

9060 IF KP SPRINT ;TV=13;PRINT ".PAYMENT RECORD -MEAD ‘ ; TV= 1 3 } L I ST i TV=13; TV=13; PRINT ".WAIT FOR ’OK’ 

9061 FOR A=OTQ 80 

9062 IF 8(A)=0G0T0 9073 

9063 PRINT “i(",#l,A,")=*,#l,8(A) 

9073 NEXT A 

9075 PRINT "NT=1 ; BC=0;FC=126; CLEAR ; : RETURN [RUN 
9077 PRINT ; PRINT *’0K’ 

9080 : RETURN 

9090 NT=0! GOSUB 10; RETURN 
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